let main () = 
  let _ = GMain.init () in
  let window = GWindow.window 
      ~height:400
      ~width:600 () in
  let _ = window#connect#destroy ~callback:(fun () -> GMain.Main.quit ()) in

  let sourceview = Debug.sourceview window in

  let error =
  "Error: This expression has type unit but an expression was expected of type
         unit -> unit" in
  let line = "File \"debug.ml\", line 4, characters 35-55:" in

  if (Debug.parse_compilation_error error) then
    Debug.parse_compilation_line line;

  window#show ();

  Debug.test ();
  Debug.get_color ();

  GMain.Main.main ()

let _ = main ()
